home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / arexx / rxser502.lha / loadit.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-04-27  |  596 b   |  27 lines
  1. /* load the rexxserial device library */
  2.  
  3. /* open the Rexx support library */
  4.  
  5. if ~show('L',"rexxsupport.library") then do
  6.    if addlib('rexxsupport.library', 0, -30, 0) then
  7.       say 'added rexxsupport.library'
  8.    else do;
  9.       say 'support library not available'
  10.       exit 10
  11.       end
  12.    end
  13.  
  14. if ~show( 'L', "rexxserdev.library" ) then do
  15.    if addlib( 'rexxserdev.library', 0, -30, 0 ) then
  16.       say 'added rexxserdev.library'
  17.    else do;
  18.       say 'support library not available'
  19.       exit 10
  20.       end
  21.    end
  22.  
  23. say
  24. say serid()
  25. libaddr = serlibbase()
  26. say 'serial library base =' libaddr
  27.